* w32fns.c (enum_font_maybe_add_to_list): Use XCDR_AS_LVALUE for

now, when the address is needed.

diff --git a/src/w32fns.c b/src/w32fns.c
index a19aa953f3781bf7c17aefc6fadd2d7f07bc4eab..6053e1d4ca3278959814db65b39429ba7475424f 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -7252,7 +7252,7 @@ enum_font_maybe_add_to_list (lpef, logfont, match_charset, width)
       if (NILP (Fmember (font_name, lpef->list)))
        {
          *lpef->tail = Fcons (Fcons (build_string (buf), width), Qnil);
-         lpef->tail = &(XCDR (*lpef->tail));
+         lpef->tail = &(XCDR_AS_LVALUE (*lpef->tail));
          lpef->numFonts++;
        }
     }